BBS in a Box 11/AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso/Files/Hyper/Hyperj-Hz/HYPERWORLD.sit/HYPERWORLD/HyperWorld/HyperWorld/card_7304.txt

Text File | 1987-10-14 | 20.7 KB | 993 lines

-- card: 7304 from stack: in
-- bmap block id: 6921
-- flags: 0000
-- background id: 6767
-- name: Visual One
----- HyperTalk script -----
on idle
  put the time into card field "Time"
  pass idle
end idle

on openCard
  set hilite of card button id 1 to true
  set hilite of card button id 1 to false
  set hilite of card button id 3 to true
  set hilite of card button id 3 to false
  set hilite of card button id 4 to true
  set hilite of card button id 4 to false
  set hilite of card button id 5 to true
  set hilite of card button id 5 to false
  set hilite of card button id 11 to true
  set hilite of card button id 11 to false
  set hilite of card button id 14 to true
  set hilite of card button id 14 to false
  set hilite of card button id 13 to true
  set hilite of card button id 13 to false
  set hilite of card button id 12 to true
  set hilite of card button id 12 to false
  set hilite of card button id 10 to true
  set hilite of card button id 10 to false
  set hilite of card button id 22 to true
  set hilite of card button id 22 to false
  set hilite of card button id 23 to true
  set hilite of card button id 23 to false
  set hilite of card button id 6 to true
  set hilite of card button id 6 to false
  set hilite of card button id 1 to true
  set hilite of card button id 1 to false
  set hilite of card button id 3 to true
  set hilite of card button id 3 to false
  set hilite of card button id 4 to true
  set hilite of card button id 4 to false
  set hilite of card button id 5 to true
  set hilite of card button id 5 to false
  set hilite of card button id 11 to true
  set hilite of card button id 11 to false
  set hilite of card button id 14 to true
  set hilite of card button id 14 to false
  set hilite of card button id 13 to true
  set hilite of card button id 13 to false
  set hilite of card button id 12 to true
  set hilite of card button id 12 to false
  set hilite of card button id 10 to true
  set hilite of card button id 10 to false
  set hilite of card button id 22 to true
  set hilite of card button id 22 to false
  set hilite of card button id 23 to true
  set hilite of card button id 23 to false
  set hilite of card button id 6 to true
  set hilite of card button id 6 to false
  set hilite of card button id 1 to true
  set hilite of card button id 1 to false
  set hilite of card button id 3 to true
  set hilite of card button id 3 to false
  set hilite of card button id 4 to true
  set hilite of card button id 4 to false
  set hilite of card button id 5 to true
  set hilite of card button id 5 to false
  set hilite of card button id 11 to true
  set hilite of card button id 11 to false
  set hilite of card button id 14 to true
  set hilite of card button id 14 to false
  set hilite of card button id 13 to true
  set hilite of card button id 13 to false
  set hilite of card button id 12 to true
  set hilite of card button id 12 to false
  set hilite of card button id 10 to true
  set hilite of card button id 10 to false
  set hilite of card button id 22 to true
  set hilite of card button id 22 to false
  set hilite of card button id 23 to true
  set hilite of card button id 23 to false
  set hilite of card button id 6 to true
  set hilite of card button id 6 to false
end openCard



-- part 1 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=48 right=69 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dissolve
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to next card
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=68 right=89 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Iris Close
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go to next card
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=88 right=109 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Wipe Left
----- HyperTalk script -----
on mouseUp
  visual effect wipe Left
  go to next card
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=108 right=128 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scroll Left
----- HyperTalk script -----
on mouseUp
  visual effect Scroll Left
  go to next card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=269 right=292 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flash 6 times
----- HyperTalk script -----
on mouseUp
  Flash 6
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=210 right=231 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sound effect 'Boing'
----- HyperTalk script -----
on mouseUp
  Play Boing
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=127 right=148 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scroll Down
----- HyperTalk script -----
on mouseUp
  visual effect Scroll Down
  go to next card
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=188 right=211 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Barn Door Open
----- HyperTalk script -----
on mouseUp
  visual effect Barn Door Open
  go to next card
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=167 right=189 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Zoom Open
----- HyperTalk script -----
on mouseUp
  visual effect Zoom Open
  go to next card
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=147 right=168 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Wipe Down
----- HyperTalk script -----
on mouseUp
  visual effect wipe Down
  go to next card
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=230 right=251 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sound effect 'Boing3'
----- HyperTalk script -----
on mouseUp
  Play Boing a f c
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=250 right=270 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Harpsichord
----- HyperTalk script -----
on mouseUp
  play harpsichord a f c
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=48 right=69 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field ID 25
end mouseUp


-- part 25 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=351 top=65 right=119 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field ID 25
end mouseUp


-- part 26 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=68 right=89 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field ID 37
end mouseUp


-- part 27 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=88 right=109 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field ID 38
end mouseUp


-- part 28 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=108 right=128 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field ID 39
end mouseUp


-- part 29 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=127 right=148 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field ID 40
end mouseUp


-- part 30 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=210 right=231 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field 8
end mouseUp


-- part 31 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=230 right=251 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field 9
end mouseUp


-- part 32 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=250 right=270 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field 10
end mouseUp


-- part 33 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=167 right=189 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field 11
end mouseUp


-- part 34 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=188 right=211 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field 12
end mouseUp


-- part 35 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=269 right=292 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field 13
end mouseUp


-- part 36 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=185 top=147 right=168 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script...
----- HyperTalk script -----
on mouseUp
  show card field 14
end mouseUp


-- part 37 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=348 top=69 right=123 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field ID 37
end mouseUp


-- part 16 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=6 top=73 right=155 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Note1
----- HyperTalk script -----
on MouseUp
  hide card field 4
end MouseUp



-- part 38 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=346 top=75 right=128 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field ID 38
end mouseUp


-- part 39 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=346 top=71 right=125 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field ID 39
end mouseUp


-- part 40 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=347 top=67 right=123 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field ID 40
end mouseUp


-- part 41 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=55 top=262 right=317 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 8
end mouseUp


-- part 42 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=356 top=67 right=120 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 8
end mouseUp


-- part 43 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=353 top=74 right=128 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 9
end mouseUp


-- part 44 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=350 top=75 right=117 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 10
end mouseUp


-- part 45 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=353 top=68 right=121 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 11
end mouseUp


-- part 46 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=346 top=70 right=124 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 12
end mouseUp


-- part 47 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=357 top=90 right=146 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 13
end mouseUp


-- part 50 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=290 top=265 right=286 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Visual Effects


-- part 51 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=353 top=42 right=98 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  hide card field 14
end mouseUp




-- part 52 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=391 top=287 right=342 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 4221 / 4221
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  play harpsichord"ee c"
  visual wipe right
  go to card"contents"
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=432 top=287 right=342 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 25911 / 25911
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  play harpsichord "ee c"
  wait 1 seconds
  answer "Do You Really Want To Quit?" with "Yes" or "No"
  if it is "No" then exit mouseUp
  play harpsichord tempo 380 "b r c# r b r a# r bw"
  wait 2 seconds
  visual dissolve to gray
  visual dissolve slowly to black
  doMenu "Compact Stack"
  doMenu "Quit HyperCard"
end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=291 right=316 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go To The Next Page
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to next card
end mouseUp



-- part 55 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=425 top=26 right=46 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Time


-- part contents for card part 16
----- text -----
Visual Effects Samples Created by G.M. Wayne, CIS 71635,1374.  Please Distribute or use as you like!  (Click in this box to close.)

-- part contents for card part 25
----- text -----
on mouseUp
  Visual Effect Dissolve
  Go To Prev Card
end mouseUp
end mouseUp


-- part contents for card part 37
----- text -----
on mouseUp
  Visual Effect Iris Close
  Go To Prev Card
end mouseUp


-- part contents for card part 38
----- text -----
on mouseUp
  Visual Effect Wipe Left
  Go To Prev Card
end mouseUp

-- part contents for card part 39
----- text -----
on mouseUp
  Visual Effect Scroll Left
  Go To Prev Card
end mouseUp
end mouseUp

-- part contents for card part 40
----- text -----
on mouseUp
  Visual Effect Scroll Down
  Go To Prev Card
end mouseUp

-- part contents for card part 41
----- text -----
on mouseUp
  Visual Effect Wipe Down
  Go To Prev Card
end mouseUp

-- part contents for card part 42
----- text -----
on mouseUp
  Play Boing
end mouseUp

-- part contents for card part 43
----- text -----
on mouseUp
  Play Boing a f c
end mouseUp

-- part contents for card part 44
----- text -----
on mouseUp
  Play harpsichord a f c
end mouseUp
end mouseUp

-- part contents for card part 45
----- text -----
on mouseUp
  Visual Effect Zoom Open
  Go To Prev Card
end mouseUp
end mouseUp

-- part contents for card part 46
----- text -----
on mouseUp
  Visual Effect Barn Door Open
  Go To Prev Card
end mouseUp

-- part contents for card part 47
----- text -----
on mouseUp
  Flash 6
end mouseUp

-- part contents for card part 51
----- text -----
on mouseUp
  visual wipe down
  go to next card
end on mouseUp


-- part contents for card part 55
----- text -----
22:27